o 

o 

o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 

o 



PAGE 



.STDIH SRC 



0X100 



01100 

01101 

01102 
01103 
01104 
01105 
01106 
01107 
01110 
01111 
01112 
01113 
01114 
01115 
01116 
01117 
01120 
01121 
01122 



000560 
000522 
000120 
000460 
000514 
000565 
000314 
000540 
000024 
700301 
700312 

100514 
100560 
201323 
100460 
100514 
201324 
100460 
100514 
201325 
040317 
777522 
040316 
201326 
040024 
100314 
100514 
201327 
040014 
141317 



t,lST THE SYSTEM DIRECTORY 

, TITLE k!5T THE SYSTEM DIRECTORY 
/7'-27-7l 

/DIGITAL, EQUIPMENT CORPORATlONj MAYNARD, MASS, 
/ED HIL-TON 



/ 




,A8S 




/ 

UPREFX=560 


1100 




TYP0NES522 




GETMONS120 




TSIXBTM60 




CRLF = 5M 




DIRECTi=f565 




READ?=3i4 




PSOD5540 




BLKNUM?24 




KSF=700301 




KRU=700312 

/ 
USTDIR JMS 




CRLF 


viMS 


UPREFX 


LAC 


(DIRMSGrjl 


JMS 


TSIXBT 


JMS 


CRLF ' 


LAC 


?HPRMSGb1*400000 


JMS 


TSIXBT 


JMS 


CKLF 


LAC 


(477 


DAC 


READ*3 


LAW 


a256 


DAC 


READ+2 


LAC 


il) 


DAC 


BLKNUM 


JMS 


READ 


JMS 


CRLF 


LAC 


(DIRECT?'! 


DAC 


14 


OEM 


PRGNMB^ 


.EJECT 





/PROGRAM TO LIST THE DIRECTORY 



/SET UP AODRESS-l OF DIRECTORY 
/SET UP PROGRAM NUMBER 



o 

o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 

o 



o 










o 
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L,STDIH SRC UIST THE SYSTEM DJRE 





01123 


441317 


L,STDRA ISZ 


PRGNMb 




01124 


700301 


KSF 






01125 


601131 


JMP 


,+4 


o 


01126 


700312 


KRB 






01127 


541330 


SAD 


(203 




01130 


600120 


JMP 


GETMDN 


o 


01131 


220014 


LAC* 


y 




01132 


74l2fc)0 


SNA 






01133 


6011/3 


JMP 


DUNMSG 


o 


01134 


041312 


DAC 


A 




01135 


201317 


LAC 


PRGNMB 




01136 


101232 


JMS 


PR2D0 


o 


01137 


101262 


sJMS 


SPACE4 




01140 


220014 


l,AC« 


14 




01141 


041313 


DAC 


A+a, 


o 


01142 


740200 


SZA 






01143 


601147 


JMP 


,+4 




01144 


201331 


LAC 


H04040) 


o 


01145 


041313 


DAC 


A*l 




01146 


601163 


vJMP 

/ 

AND 


i"Sf,l 


o 


01147 


501332 


?77) 




01150 


740200 


S2A 






01151 


601163 


JMP 


LST.l 


o 


01152 


201313 


lAC 


AH 




01153 


241333 


KOR 


(40) 




01154 


041313 


DAC 


AH 


o 






/ 






01155 


501334 


AND 


<?700? 




01156 


740200 


SHA 




o 


01157 


601163 


JMP 


LST.l 




01160 


201313 


lAQ 


A*l 




01161 


241335 


XOR 


(4000) 


o 


01162 


041313 


DAC 
/ 

LST,1 lAC 


AH 




01163 


201336 


(AhI 


o 


01164 


100460 


JMS 


tS|XBT 




01165 


101262 


JMS 


SPACE4 




01166 


220014 


LACw 


i4- 


o 


01167 


1005^0 


JMS 


PSQD 




01170 


100514 


JMS 


CRLF 




01171 


440014 


JSH 


14 


o 


01172 


601123 


JMP 
tEJECT 


wstdra 


o 










o 










o 











/BACK TO MONITOR? 
/YES 

/NO 

/DIRECTORY HAS FOUR WQRDS PER 
/PROQRAMi WORDS ONE AND TWO ARE THE 
/TITLE IN .SIXBT, WORD THREE IS STARTING 
/BLOCK # ON OECTAPE, WORD FOUR IS 
/WORD COUNT (NEGATIVE FORM), 
/FORMAT IS A TWO DIGIT DECIMAL 
/NUMBER, A SPACE, AND A PROGRAM 
/TITLE, (SIX CHARACTERS OR LESS) 
/ANY CHARACTERS IN LAST HALF OF WORD? 
/YES, CHECK FOR FILLING IN SPACES 
/NOi FILL IN ALL SPACES, 

/PRINT, 



/ANY IN LAST CHARACTER? 

/YIS, PRINT', 

/NO FILL LAST CHARACTER 



WITH A SPACE, 



/NOW CHECK MIDPLC CHARACTER, 

/PRINT, 

/FILL IN MIDDLE CHARACTER, 



/UPDATE DIRECTORY POINTER 



o 



o 



o 

o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 

o 



o 

o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 

o 



PAGE; 3 l,STDIR SRG 

01173 777775 

01174 340014 

01175 040014 

01176 740001 

01177 3413^7 

01200 740100 

01201 601223 

01202 220014 

01203 041315 

01204 220014 

01205 141316 

01206 441315 

01207 341340 

01210 741100 

01211 60120a 

01212 201316 

01213 341315 

01214 740001 

01215 341341 

01216 100540 

01217 201342 

01220 100460 

01221 700312 

01222 600122 

01223 201343 

01224 601216 

01225 000000 

01226 742020 

01227 742020 

01230 742020 

01231 621225 



tiST THE SYSTEM DIRECTORY 



OUNMSG 



ISTDRC! 



L,STPR8 



RR0T6 



UAW 


b3 


TAD 


14 


DAG 


l! 


CMA 




TAD 


5QIRe:ct 


SMA 




JMP 


kSTORB 


lAQ* 


14 


DAC 


Bl,.K# 


UAC« 


14 


DHM 


CNTBl,K# 


IS2 


CNTBt,K 


TAP 


{4 00 


SPA 




JMP 


,'•3 


l-AC 


dntblk 


TAD 


e^K 


CMA 




TAD 


(1101 


JMS 


P30D 


lAC 


(BL,KHSG-.l 


JMS 


TSiXBT 


KRB 




gMP 


GETMON+2 


UAC 


(i042' 


vJMP 


l,STDRg 


/ 









RTR 




RTR 




RTR 




dMP» 


HRQT6 


,E^ECT 





/SHIFT AC 6 PEACES TO RIGHT 



o 

o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 



u 






o 








PAGE ^ 


l,STPJ 


o 


012,52 


000000 




01233 


141321 




01234 


501332 


o 


01235 


740200 




01236 


601244 




01237 


760260 


o 


01240 


10052H 




01241 


760260 




01242 


100522 


o 


01243 


621232 




01244 


341344 




01245 


741100 


o 


01246 


601251 




01247 


441321 




01250 


601244 


o 


01251 


041322 




01252 


201321 




01253 


341345 


o 


01254 


100522 




01255 


201322 




01256 


341346 


o 


01257 


341345 




01260 


100522 




01261 


621232 


o 








01262 


000000 




01263 


777774 


o 


01264 


041320 




01265 


760240 




01266 


100522 


o 


01267 


441320 




01270 


601265 




01271 


621262 


o 






o 






o 






o 






o 






o 






o 






o 






-'-N 







SRC 



IrlST 



PR2DD 



SPACE4 



THE SYSTEM P.IRECTORY 







DZM 


TENS# 


AND 


vn 


SHA 




JMP 


,*6 


LAW 


260 


JMS 


TYRONE 


LAW 


260 


JMS 


TYRONE 


JMP<* 


PRRDD" 


TAD 


(5^12 


SPA 




JMP 


1*3 


isz 


TENS 


UMP 


«'4 


DAC 


UNJTS^ 


UAC 


TENS ■■ 


TAD 


(260 


JMS 


TYRONE 


tAC 


UNITS" 


TAD 


m 


TAD 


(260 


JMS 


TYRONE 


^MP» 

/ 




PR?DD' 




LAW 


s4 


OAC 


SRQNT!* 


LAW 


240 


JMS 


TYRONE 


ISZ 


SPQNT" 


vJMP 


1 s3 


JMP» 


SPACE4 


.EJECT 





/PRINT TWO DECIMAL Dl(3ITS UP TP 64 



o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 

o 



o 






o 
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kSTUi 


o 


01272 


041122 




01273 


050324 




01274 


1722^1 


o 


01275 


000003 




03,276 


162515 




01277 


024040 


o 


01300 


241124 




diZ<£X 


140540 




01302 


404040 


o 


01303 


400213 




01304 


160000 




01305 


404006 


o 


01306 


220505 




01307 


400214 




01310 


170313 


o 


01311 


230000 




01312 


000000 




01313 


000000 


o 


01314 


000000 


o 






o 






o 






o 













o 






o 






o 






o 






o 






o 






o 






o 







u 

SRQ |,IST THE SYSTp DIRECTORY 

OIRMSG .SIXBT ' QIRECTORY*?" O 

HDRMSG ,S]XBT 'NUMB TJTlE BKN®' 

o 
o 

E3LKMSG .SJXBT » FREE B|„QCKS@» 

O 






.EJECT 



o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 

o 



o 








o 
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USTDIR 


SRC 


o 




000000 






01323 


0012/1 


**i 




01324 


4012/5 


*t. 


o 


01325 


0004/7 


«u 




01326 


000001 


»L 




01327 


000564 


^u 


o 


01330 


000203 


'% 




01331 


404040 


^i 




01332 


000077 


^u 


o 


01333 


000040 


<»L 




01334 


007700 


*l. 




01335 


004000 


»U 


o 


01336 


0013U 


«L 




01337 


000565 


*U 




01340 


000400 


^»U 


o 


01341 


001101 


*L 




01342 


001304 


*l 




0134 3 


001042 


«k 


o 


01344 


777766 


«L 




01345 


000260 


«L, 




01346 


000012 


«L, 


o 




snz 


=01347 


o 








o 








o 








o 








o 








o 








o 








o 








o 








o 








o 









t,IST THE SYSTEM P.J.RECTQRY 
,END 



NQ ERROR i.|NES 



u 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 

o 



u 
o 



PAGE 7 LSTOIR SRC llSJ THE SYSTEM OfRECTORY 



o 
o 



O A 01312 BIK 01315 BLKMSG 0130S BUNUM 000024 O 

CNTBUK 01316 GRUF 000514 BIRECT 000565 QIRMSQ 01272 

DUNMSG 01173 GETMON 000120 HDRMSG 01276 KRB 700312 

O KSF 700301 LSTDIR 01100 kSTDRA 01123 USTDRB 01223 U 

L^STDRC 01216 LST.l 01163 PRGNMB 01317 PR2DD 01232 

PSQ0 000540 READ 000314 RRQT6 0l225 SPAQE4 01262 

O SPCNT 01320 TENS 01321 TSIXBT 000460 TYPONE 000S22 O 

UNITS 01322 UPREFX 000560 



o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 



o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 



( ) 



o 



o 

o 



PAGE 8 USTDIR SRC L,IST THE SYSTEM DIRECTORY 



O BLKNUM 000024 GETHON fc)00l20 READ W0033,4 TSIXBT 000460 O 

CRL,F 000514 TYPONE 0005H2 PSOU 000540 UPREpX 000560 

DIRECT 000565 LSTDIR 01100 XSTURA 01123 UST,1 01163 

O OUNMSG 01173 LSTDRC 01216 USTDRB 01223 RR0T6 01225 U 

PR2DD 01232 SPACE4 01262 PIRMSG 01272 HDHMSG 01276 

8l,KMSG 01305 A 01312 8LK 01315 CNT8l,K 01316 

O PRGNMB 01317 SPCNT 01320 TENS 01321 UNITS 01322 O 

KSF 700301 KRB 700312 



o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 

o 



I 

o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 

o 



